From: Glenn Morris <rgm@gnu.org>
Date: Thu, 9 Aug 2007 02:48:42 +0000 (+0000)
Subject: (help-make-xrefs): Fix previous change.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~17460
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=b9fdc14be986206d7ef672c0b0b15b4690bc3f08;p=emacs.git

(help-make-xrefs): Fix previous change.
---

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index fd17a93a29f..1435eb019ec 100644
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -461,9 +461,11 @@ that."
               ;; An obvious case of a key substitution:
               (save-excursion
                 (while (re-search-forward
-			;; Assume command name is only word and symbol
+                        ;; Assume command name is only word and symbol
                         ;; characters to get things like `use M-x foo->bar'.
-                        "\\<M-x\\s-+\\(\\sw\\(\\sw\\|\\s_\\)+\\)" nil t)
+                        ;; Command required to end with word constituent
+                        ;; to avoid `.' at end of a sentence.
+                        "\\<M-x\\s-+\\(\\sw\\(\\sw\\|\\s_\\)*\\sw\\)" nil t)
                   (let ((sym (intern-soft (match-string 1))))
                     (if (fboundp sym)
                         (help-xref-button 1 'help-function sym)))))